home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 July / WPCJUL96.ISO / file.exe / INTRFINJ.DXR / 00088_iflchecksystem .ls < prev    next >
Encoding:
Text File  |  1996-05-15  |  1.1 KB  |  39 lines

  1. on iflchecksystem
  2.   set checksys to 1
  3.   if the videoForWindowsPresent = 0 then
  4.     set the castNum of sprite 9 to 89
  5.     set the castNum of sprite 10 to 90
  6.     set the castNum of sprite 11 to 92
  7.     set the loc of sprite 12 to point(2000, 2000)
  8.     set the loc of sprite 13 to point(2000, 2000)
  9.     updateStage()
  10.     repeat while checksys = 1
  11.       if rollOver(10) then
  12.         repeat while rollOver(10)
  13.           set the castNum of sprite 10 to 91
  14.           updateStage()
  15.           if the mouseDown then
  16.             open(the pathName & "\system\vfw_11e\setup.exe")
  17.             set checksys to 0
  18.             exit repeat
  19.           end if
  20.         end repeat
  21.         set the castNum of sprite 10 to 90
  22.         updateStage()
  23.       end if
  24.       if rollOver(11) then
  25.         repeat while rollOver(11)
  26.           set the castNum of sprite 11 to 93
  27.           updateStage()
  28.           if the mouseDown then
  29.             set checksys to 0
  30.             exit repeat
  31.           end if
  32.         end repeat
  33.         set the castNum of sprite 11 to 92
  34.         updateStage()
  35.       end if
  36.     end repeat
  37.   end if
  38. end
  39.